home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / [DOS_Application]_BIT_Software_-_BitCom_3.58c_-_Distribution_Disks.zip / WYSE50.EMU < prev    next >
Text File  |  1990-06-01  |  3KB  |  126 lines
  1. INITIAL
  2. { Last update for version 4.0:  Oct 1, 1988}
  3. z#origin(1)
  4. z#awrap(0)
  5. z#setatt(7)
  6. z#setmar(1,@mrow)
  7. z#setins(0)
  8. z#scroll(1)
  9. @uparr = '"$0b"'
  10. @dnarr = '"$0a"'
  11. @riarr = '"$0c"'
  12. @lfarr = '"$08"'
  13. @home = '"$1e"'
  14. @pgup = '"$1bJ"'
  15. @pgdn = '"$1bK"'
  16. @end = '"$05"'
  17. @ins = '"$06"'
  18. @del = '"$04"'
  19. @bs = '"$7f"'
  20. @f1 = '"$01@@$0d"'
  21. @f2 = '"$01A$0d"'
  22. @f3 = '"$01B$0d"'
  23. @f4 = '"$01C$0d"'
  24. @f5 = '"$01D$0d"'
  25. @f6 = '"$01E$0d"'
  26. @f7 = '"$01F$0d"'
  27. @f8 = '"$01G$0d"'
  28. @f9 = '"$01H$0d"'
  29. @f10 = '"$01I$0d"'
  30. { @f11 }
  31. { @f12 }
  32. END
  33. INBUFFER
  34. 0x8D 0x0D
  35. 0x00 NUL
  36. 0x08 BS2
  37. 0x0b LF
  38. 0x0c FF
  39. 0x1a CAN
  40. 0x7f NUL
  41. END
  42. INBUFFER2
  43. 0x00 NUL
  44. 0x08 BS2
  45. 0x0b LF
  46. 0x0c FF
  47. 0x0d NUL           { 6-89 added }
  48. 0x1a CAN
  49. 0x7f NUL
  50. 0x30 0xC2
  51. 0x31 0xC0
  52. 0x32 0xDA
  53. 0x33 0xBF
  54. 0x34 0xC3
  55. 0x35 0xD9
  56. 0x36 0xB3
  57. 0x37 0xDB
  58. 0x38 0xC5
  59. 0x39 0xB4
  60. 0x3A 0xC4
  61. 0x3B 0xB1
  62. 0x3C 0xCD
  63. 0x3D 0xC1
  64. 0x3E 0xBA
  65. 0x3F 0xB2
  66. END
  67. OUTBUFFER
  68. END
  69. HOSTCODE
  70. ~3              z#setflg(a,5)                  { application key mode on }
  71. ~2              z#setflg(a,4)                  { application key mode off }
  72. d/              z#awrap(0)                     { end of line wrap on }
  73. e:              z#tabcla
  74. e4              z#lfnl(2)                      { receive CR mode off }
  75. e5              z#lfnl(1)                      { receive CR mode on }
  76. $1E             poscur(1,1)
  77. {               poscur(1,1)
  78. =%r%c           poscur(expr(%c-31),expr(%r-31))
  79. a\rR\cC         poscur(\\c,\\r)
  80. *               poscur(1,1);z#clreos
  81. +               poscur(1,1);z#clreos
  82. T               z#Clreol
  83. t               z#Clreol
  84. Y               z#Clreos
  85. y               z#Clreos
  86. R               z#dellin(1)
  87. E               z#inslin(1)
  88. W               z#del(1)
  89. (               z#Setatt(15)
  90. )               z#setatt(07)
  91. `0              cursize(9,9)           { cursor display off }
  92. `1              cursize(0,8)           { cursor display on }
  93. `8
  94. `9
  95. `:              dos("setmax -ammon -c80 -r25 -mmono"); { set 80-column display }
  96. `;              @maxrow=44;dos("setmax -ammon -c132  -r44  -mmono");
  97. G0              z#setatt(7)
  98. G2              z#setatt(128)
  99. G4              z#setatt(112)
  100. G6              z#setatt(112)
  101. G8              z#setatt(1)
  102. G?
  103. G<              z#setatt(112);z#setatt(01)
  104. G>              z#setatt(112);z#setatt(128);z#setatt(1)
  105. G:
  106. G;
  107. N               z#scroll(0)
  108. O               z#scroll(1)
  109. H$02            z#setbuf(2,1)     { 6-89 modified }
  110. H$03            z#setbuf(1,1)     { 6-89 modified }
  111. z(
  112. Z(
  113. x
  114. F
  115. ]
  116. }
  117. P
  118. $20  "50$0D"
  119. 0               z#tabcla               { clear all tab stops }
  120. 1               z#tabset               { set tab stop }
  121. 2               z#tabclr               { clear tab stop }
  122. '
  123. C
  124. X
  125. END
  126.